home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 84 / 084.d81 / shockley boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  873b  |  24 lines
  1. 10 dv=peek(186):ifdv<8thendv=8
  2. 100 poke53280,0:poke53281,0:print"[147]"
  3. 110 gosub 180
  4. 120 sys57812"jukebox.o",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  5. 130 :
  6. 140 poke 16387,dv :rem device number
  7. 150 poke 16388,224 :rem color preference
  8. 160 print "[147]":sys16384:goto270
  9. 170 :
  10. 180 poke214,15:print:print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
  11. 190 fori=1to3:print"                                      ":next
  12. 200 print"        [208]ublished on [204][207][193][196][211][212][193][210] #84     "
  13. 210 print"      Subscriptions 1-800-831-2694    "
  14. 220 print"           [193]ll [210]ights [210]eserved        "
  15. 230 print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  16. 240 au$="[211]hockley  [202]ukebox":poke214,17:print:printspc(20-len(au$)/2)"[152]"au$
  17. 250 au$="[194]y [215]. [205]. [211]hockley ([195]) 1991":poke214,18:print
  18. 260 printspc(20-len(au$)/2)"[152]"au$"":return
  19. 270 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  20. 280 if er<>63 then print"[147]":end
  21. 290 a$="hello connect":q$=chr$(34):poke53281,7:poke53280,7:print"[147]"
  22. 300 print"[158]load"q$a$q$",8"
  23. 310 print"run":poke631,13:poke632,13:poke198,2:end
  24.